home *** CD-ROM | disk | FTP | other *** search
/ Enter 2002 January / EnterCD 1_2002.iso / Internet / HomeSite 5.0 / HomeSite_5_Trial_Installer.exe / data1.cab / Extensions / Includes / wmIsNumeric.wizml < prev    next >
Encoding:
Text File  |  2001-10-11  |  799 b   |  27 lines
  1. <WIZIF 0>
  2.     <!-- Copyright  (c) 1997-2001 Macromedia, Inc. All Rights Reserved. Consult Software License Agreement for more details.  Version 1.0 - 2001-05-04 -->
  3.     Input:     var = variable to be tested
  4.     Output: IsNumeric: boolean with value 'true' or 'false'
  5. </WIZIF>
  6.  
  7. <WIZIF Mid(var,1,1) EQ '-'>
  8.     <WIZSET IsNumeric = 'true'>
  9. <WIZELSE>
  10.     <WIZSET CountLen = Len(Trim(var))>
  11.     <WIZSET CharIndex = 1>
  12.     <WIZLOOP CONDITION = 'CharIndex LTE CountLen'>
  13.         <WIZSET IsNumeric = 'false'>
  14.         <WIZSET Char = Mid(var,CharIndex,1)>
  15.         <WIZLOOP INDEX=Digit LIST='1,2,3,4,5,6,7,8,9,0'>
  16.             <WIZIF Char EQ Digit>
  17.                 <WIZSET IsNumeric = 'true'>
  18.                 <WIZBREAK>
  19.             </WIZIF>
  20.         </WIZLOOP>
  21.         <WIZIF IsNumeric EQ 'false'>
  22.             <WIZBREAK>
  23.         </WIZIF>
  24.         <WIZSET CharIndex = CharIndex + 1>
  25.     </WIZLOOP>
  26. </WIZIF>
  27.